Top 10k strings from Solitaire (1985)(Spectrum Computing).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Covertapes / Sinclair ZX Spectrum - Covertapes - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   4 *NONFLASHY,3
   4 *NONFLASHX-2
   2 P(XJUMPED,YJUMPED)=1
   2 P(TOX,TOY)=2
   2 FLASHY=FLASHY-1
   2 FLASHX=FLASHX-1
   2 *YJUMPED,3
   2 *XJUMPED-2
   1 ppPPPppp`p
   1 pPPPppp8pppp8`hh`p```
   1 pPPPppp8pppp8`hh`00``
   1 pPPPppp8pp8p8`hh`p```
   1 `PPPP8888ppppPPP
   1 YJUMPED=FROMY:
   1 YJUMPED=FROMY+1
   1 XJUMPED=FROMX:
   1 XJUMPED=FROMX+1
   1 VERTICAL MOVE
   1 VALIDATE MOVE
   1 TOY=FLASHY:
   1 TOX=FLASHX:
   1 PRINT NEW "CURSOR"
   1 PEGS=PEGS-1
   1 P(NONFLASHX,NONFLASHY)=1
   1 P(FROMX,FROMY)=1
   1 P(FROMX,FROMY)
   1 P(FLASHX,FLASHY)=1
   1 NONFLASHY=FLASHY:
   1 NONFLASHY=FLASHY
   1 NONFLASHY=4
   1 NONFLASHX=FLASHX:
   1 NONFLASHX=FLASHX
   1 NONFLASHX=4
   1 MOVE IS O.K.
   1 MOVE INPUT
   1 KEYPRESS VERIFICATION  
   1 JUMPS=JUMPS+1
   1 JUMP CO-ORDINATES
   1 INSTRUCTIONS
   1 INITIALISE VARIABLES  
   1 HORIZONTAL MOVE
   1 GAME NOT WON
   1 FROMY=FLASHY:
   1 FROMX=FLASHX:
   1 FLASHY=FLASHY+1
   1 FLASHX=FLASHX+1
   1 ERROR DISCOVERED
   1 ELIMINATE DIAGONALS    
   1 ELIMINATE "LONG" JUMPS
   1 DRAW BOARD
   1 CHECK FOR COMPLETION   
   1 BB8`hh`p```
   1 ALTER VARIABLES
   1 ;PEGS;" PEGS";
   1 ;JUMPS;" MOVES";
   1 ;"YOU MADE";
   1 ;"WELL DONE"
   1 ;"Use keys 5-8 to position the    flashing cursor over the piece  you wish to move and press 'J'. Next,position the cursor over"
   1 ;"The ancient european game of    logic. The game commences with across shaped peg board having   pegs in every hole but the
   1 ;"TRY AGAIN";
   1 ;"START THE TAPE":
   1 ;"PRESS ANY KEY TO CONTINUE.":
   1 ;"PEGS LEFT";
   1 ;"MOVES ";JUMPS;
   1 ;"MOVES    "
   1 ;"LEAVING";
   1 ;"IN ";JUMPS;
   1 ;"COMPLETED";
   1 ;"* SOLITAIRE *";
   1 ;"(Y OR N)"
   1 ,"-3",".15","0","1","2",".15","-5",".15","-3",".3","0",".3","2",".3","7",".15","9",".15","2",".3","7",".3","9","1","11"
   1 *(TOY>FROMY)-1
   1 *(TOY<FROMY):
   1 *(TOX>FROMX)-1
   1 *(TOX<FROMX)
   1 *(FLASHY=8
   1 *(FLASHY=6
   1 *(FLASHY=2
   1 *(FLASHY=0
   1 *(FLASHX=8
   1 *(FLASHX=6
   1 *(FLASHX=2
   1 *(FLASHX=0
   1 (FROMY-TOY)=2
   1 (FROMX-TOX)=2
   1 '"The objective of the game is to remove all the pegs barr one,   and to leave the last peg in thecentre of the board."
   1 '"Pegs are removed by 'jumping'   one peg over another into an    empty hole and removing the
   1 '"If you cannot move,or simply    wish to resign,press 'R'."
   1 "vertical jumps are permitted:no diagonal jumping is allowed. Youmay only jump 1 peg at a time:  jumping over holes is not
   1 "the hole you wish to jump into  and press 'J'. The spectrum
   1 "solitaire"
   1 "ERASE" OLD CURSOR
   1 "Channel4"
   1 "9";"PRESS A KEY": 
   1 ".3","0",".15","-3",".15","0","1","2",".15","-5",".15","-3",".3","0",".3","2",".3","7",".15","9",".15","2",".3","7",".3","9","1.4","2"
   1 ".3","0",".15"
   1 ".2","7",".2","4",".2","12",".6","9",".2","4",".2","2",".2","7",".6","4",".2","2",".2","0",".2","2","1.4","4"
   1 ".2","4",".2","2",".2","5","1.4","4",".4","11",".2","9",".2","9",".2","7",".2","5"
   1  jumped peg. Only horizontal and"
   1  checks jumps and rejects illegalmoves.";
   1  THEN PRESS ANY KEY
   1  SPECTRUM+ CURSORS